<%
        'Err.Clear
        'On Error Resume Next	   
	   
	    'SET dbConnection = Server.CreateObject("ADODB.Connection")
		'dbConnection.Open "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; " & _
        '                  "Database=allel001; User=root; Password=faviel; Option=3;"
		
		SET dbConnection = Server.CreateObject("ADODB.Connection")
		'dbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\webdata\allel001.mdb;User Id=admin;Password=;" 'Access 2000 (Yes)			
		dbConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\webdata\allel001.mdb;Uid=Admin;Pwd=;"
						
		'dbConnection.Open = "Driver={SQL Server Native Client 10.0};Server=localhost;Database=allel001;Uid=sa;Pwd=sa;"
                          
        'If Err.Number <> 0 Then         
        '  Response.Write (Err.Description)         
        '  Response.End
        'End If        
        'On Error GoTo 0        
%>

